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(54)T1fle: APPARATUS FOR PRODUCING SOFTWARE AND METHOD FOR PRODUCING SOFTWARE 



(57) Abstract 

To autotnaticalty produce software in any field by using only a 
mechanical algorithm without relying on the individual ability of the SE such 
as experience, knowledge and ability for adaptation, a W04 phase element, a 
W04 logical element, a W02 logical element, a W03 phase element, a W03 
logical element, and a pallet function for which derivation data for deriving a 
defined body identifier, a word identifier, a processing path, and a preset 
value are not defined are stored in advance, and a defined body identifier, a 
word identifier, a processing path, and derived data are inputted for each word 
and buried in predetermined positions in the undefined W04 phase element, 
W04 logical element, W02 logical element, W03 phase element, W03 logical 
element, and pallet function. The invention is useful to produce and maintain 
software. 
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OTO 3 ^JlglS-e^oT, 
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y h ^nrti^^^tcti. ^fiScjiH- F^-fe«y h "T -5 i <i: t) fc ^ fig S: 7 
^^$:'J-k>>hL, ^ig^i§®W04 ©x— ^X U "^<7)^^" {I 

^mLT^I^Ig^M^^l^^igc^WO 4 0x-rS7xU7(C^^L, Wie 
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wo 2i^mmm. wo sfeffig^, wo 3mmmMRU±B (b) <d/^ 
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m 1 IIL YE E(Da^{ia-::J< V7 S'j7x70«l^^tilllSWlI:^U^c 

L YE Eoa^{c»-:^< V7 h'i;xTti, 'Virgil {i/T^-r<J:^^«i:«lji. 

y h 1 0 4 75wti/>y hiii^p^ 1 0 1 ^z^-oxmrn^Bz-rmmtu-D 

;1U.y hMMr^Ci^l 0 1, hm^l 0 2 1 0 3\t. 

±idiLfcL Y E E(DfiiilwEo'#-?-n-?n 1 Xxv >^7K^^Til-W(C 
^^$nTl>-i>o SlSISlIi 1 0 3 13 W 0 4 Sl^iili, W 0 2 M^m 
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s&OTo ssis^aTi^'^^, /tU'y hM^ 1 0 2 {'WO 4m^mmf)^ 

M^)itn/i/tU-y h 1 0 4 ^WO U >y Kii^ 1 0 2 tC 

WO 2 SjSiiJi^'M^jiStlTtyt U h 1 0 4 ^WO 2/11/7 

U-y h^i: 1 0 2 {::W0 3 miS.i^mt)m^ji<^nrc/'^u y K l O 4^W 

iZy'-^^^mr^f-i^j:*) 7*^m^)i^nTVi-S. wo 4/1Uu/ h 
0x-:$'X 'J 7^W 0 4 x-^X U 7, W 0 2 /I U h (Dx-d^X U 7 
$:W0 2 x-^XU 7Ry.'W0 3/^Uy h ©x- iS' X U 7 W 0 3 x- 
^X'J 7<i:ll^^^. 

WO 4»)S^s{3{i, &mwmt'^mmmt^^$)^. v:n6^wo4 
fijffis^. wo 4iSrsg^«i:ii?^>'„ wo 2Sjgifes{3tt. Wimmmt)^$> 

WO 4^ffig^&y:wo 4mmmmit. mmmm^&n^rzstxDzfn^ 

^A^^T*-5, W0 2lfeSS^«, M3iig8S$i*^-r-Sfc:«)<7)yn^ 
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X - iS? ^ * ^ ff ^ «e) ® y □ y ^ A S ^ T ^ -5 . 

c:tie)(^)ais^a 1 0 3 ±m-r^vy :ji7iz!ii''mumm i o 
LTf^fig^n^, mKDm-vmot. mmi o 5±\zm^\tM-m ^v^m 

mt)U^^^n^o ^}&^m.<Do . wo4^4ffig^, wo 4^11 

'^ikmt^rcisb(Dh(DX'$>^^^ibmmmiz^m^ti^h(Di^$>^/}K w 
0 3 ammmikuvjo 3-^m^mizoi^x\t7 7<)im^<Df'-^mm 
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/tuy hmmmm. 1 0 1 (Dmrniti^^-^^tji^vy jiT\z^i,^xhm 
-x&^o t*foT. ^tf)i^fSiLx$>^nuy hmmmwa 1 0 1 izv^mL 

tznvy N 1 0 4 ^ffi<^jAie)(icki>o 

m7i\tmi I \z^.-rMm^m mmm^m(Dmm\zz)\^^x\tWi&t 

•So ) ^^m\^Ufi^i^m.^-t=bt, 0ij A ;< - i -il® G S M E N U 

ij^m^-^n^ ti (^J^tf^ - i-iijfflG S ME NUtCiJl^T Tpdo.- 
No = n + ENTERj ©jif^) . r^^igBa^j(7)jii®GSOI08 

(Gsoi 0 s\tnMm^mm(D^mwm.%m ^mitrnt^-^t^. 

iifHf ^glCv-XT^A^P^I^T^If $S -i-H®G S xMENU m 
7j ) ifi^-^nx\^^^^-oU!^^\z\t 2 0 2) , vXxA^ 

r^MT^ (7.7^>y 7^2 0 3 ) „ '> X x A ^ F^MT § <!: , {^^Jx.{iOS(C 
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(Xx«y 7^2 0 7 ) . 

/•^uy hm^ 1 0 2 {c^T(?)wo 4 izmt^mf^mm i o 3 o wo 

C n J: 0 ^ # iS® {C -5 X - ^ $ n-5 o 

^(^t^, Sit ii^^^ff -rs (XT--yy2 1 0) . gp-^, ii>h°i- 
CO js © ± -e r - M ^ A ;(j $ n j® ® X - $r s ft -r -5 , 

-?-LT. Smx-iS'A^iE^;*^^^ A><&5|iiJ8ffL (Xx'yy2 11) , M 

n(Dm'^\z\tm.^ni}^ib'^y)Ut. bp^. ^iiijiSJS<^x-37#75^'7:j:ii/5^^ 
i^ii, ^^r-swo 2 /tu-y h^5iff-rs (xx«7T2 1 2) c gp-^, 

Al^-y KMiCl 0 2(C^T(7)WO 2 {IF^T ^ 0 W 0 2 iiS 
iJ' CD Si ffi ± T A $ n X - ^S' H ^ $ tl -5 o 

MSS8S*n;?i^$n^ (;^x«y y 2 i 3 . 2 i 4 ) . 

tiWO 2 ^Iig«±0^fflaig?S7 (R=l~5) IZ«j;oT*ilf^^n 

-r ;i''\<?5^ISS:#t)7iUW 0 3/N°U«y h) ^^fTf-S (Xx«y7°2 1 5). 
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^ ^81 S CD H ff <^ $r ff -5 ^ SS ^ a T ^ -5 . 

^ MS ^ff i X- ^57 © 7 7 'T ^ O $ ^ MSSM a T * <5 . 

^> :/2 0 1 ) icM^. 

MaM?SR = 3 «-?-(D*^wo 4/^ i/<y h (|p|-, ma©M 

M ss M a R = 4 X - ^ ^ © ^ s 7 7 < ; s ^ -r -5 ^ft a T * -5 . 
M a M ss R = 5 « X - ^ ^ ^ 0 s ^ 7 7 < e ^ D mr Ma -e * -5 . 

wo 2, wo 3. wo 4 (cF^T€.»icira^n-^'n(z-c»iiT;i<Dj;^7S 

0 2, 303). 

7^304) , yy^^^J±yht^ (Xx«y7'305) t^lZ^ii^m 
y:fZQ 2. 303) 0 
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wo 3 cDSEHSTge^BJc^njtT^-^s^M^ riemj ■r-5*)OT' 
0 4 « s ^ s © -5 ffi g ^ © <i jg / ^ A ^ ^ -r 7 □ - 5^ -V - 

^iffiS^^Y (D. i, Wn) tr^t. ^-TD, i. Wn-1 (D 

\tmm^m^. i n^isisssij^, wn- i itm?nt&:mmm^^'w o 

T' 4 0 1 ) o 

^©«-&{ctiteffiM^Y (D, i. Wn) ^mrr^o 

D. i, Wn - 1 ©X — i$^x U T©x-^ $:D, 
i , Wn ©x-^X'J 7lC^LTi^7-r'5 (Xxu/ ^4 0 2 ) . 
m 5 fiSJSSSili©a-^WO 3 iiJIgm©m3iA^^W A^^r7 o- 

^JiS^^L (D. i, W03) tr^t. ^■t'r-^JL'iT (D. 

WO 3) ii^'&Xti.i.^t^^t^^mmt^ (7x>y7°5 0 1) . 
x-:S^XiJ7 (D, i. W0 3) (liStlx-^Ti^^oT^T^CliJi^ 
iCfS. Siag^L (D, i, WO 3) ^J^^T-r-l). 

T-'-^X'JT (D. WO 3) \Z7'-'^i3ni<X'^<Di^^{Z\t. X 
-i5'©gS±Be^ff ^ (;^x«;/y5 0 2 ) , x-i$'©g5±ljt<!:{l. x 
-^S'^S^A^^J^ttW^^lClif^JAti'T^-^X U 7 (D. i. WO 2) ©x 
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-^^x-^xuT (D, i, W0 3) iz^rct, v'-^^^^tiitimii 
© ^ ^ { c « ^sj X. 7 7 < ; 1/ 0 |bI - ^ ig (?) X - ^ e> X - ^ ^ g E 4 fi£ "T 

'AiZ. x-^xiJ7 (D, i. W0 3) ?5«^T;'J:li^S75^^¥iJS"JT-i) 
(Xv-y-f 5 0 3) 0 

x-^X'JT (D, i. W0 3) \Zy'-'^i)iW^r^ZttU-orzi^ 

^iifi. ^^±s!<.^^i^tL\^rzt^uL. mmmmh (d> i, wos) 

x-iJ'XUy (D, U WOS) (CT^-^^S^TfttL^Cli^^fllS, D, 
i , wo 3 (DS^ib;^J'^7>^tC" 1 " ^mW-r^ C^x'vT'S 0 4) » 

nmm'^mfjim't\z\t. n^my^i/ (d. i . wo 3) ^-ty h-r 

§ (Xx>y y 5 0 6 ) o 

M®i«inJftgT7itiiI^(Ct±, TfiJciL^^^:/ (D. WOS) ^-ty 
HT-S (Xx«>y507) . 

0 6 *.wo 2i^m^m<Dmm^'^^y^ A^Tfk-rya- 

wo 2) f)^^i!ti\.^-fy^nmir^ (7s7'y:^e 0 1) . 

x-^XU7 (D. i. wo 2) l3x-^$'75^Vj:< T^(7)^-^, ^SD 

w 0 2 ) ^^mrr^c 

x-^$^XiJ7 (D, i, wo 2) lC|l{Cx-^$'/)^'^oT'^T/c£liJi^ 

^ii^jssr^jt-r^ (xx«>y6 0 2 ) . mim^(Dm^t\t. 
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mmm^<Dm^f}miLbrzi^^\z\t. iiSg^L (d, wo 2) 
n^^m'^mtjiiB'^izit. ni^my^if (d, i , wo 2) h-r 

^ (Xx>y::^606) , 

S^i^)pJtgT?^j:^^^^{C^^. ^^u7^i>' (D, i , wo 2) 
hf^ (Xxu/:/6 0 7 ). 

mmmm^L (d, i, wo4) t-r^t. s-Tx-^s^xut (d, 

i, wo 4) t^^X'f£\^^i)^^i!)^t:n7A'r^ (XT-«y7'7 0 1) . 

(D. i. WO 4) (Cx-^;5^Vcj:< T^0«^(lli> x 
-iS7(DgE4fi£S:ff a (Xx«yy7 0 2 ) . 3? W S H^fiK a: li . x 
-^$'7)^*A:^Mtt<7)^^(C«0iJA«x-iS'X U 7 (D, i, W0 2) (7)x 
_^^5.'_^X'J7 (D. i, WO 4) {Z^r:it, 7'-:$'f)^mtim^ 

(D ^ ( I fi «»J X. ti' 7 7 ; K7) |5i - ^ |g © X - ^7 e) X - 37 ^ e S 4 fi£ f 

^ d 'r-^f)mmiziiif]m^(Dm'^\z\tmxitm(Dm^(D7'-^^-^ 

x-t$'XU7 (D, i, WO 4) ^^t^-Vtj:\,^t)^'^^^t:mm-r^ 
( X X >y 7° 7 0 3 ) c 

T-'-^x'J7 (D, i. W0 4) l;x-^;5^'#ffiT^:i<t<i:;'cj:ofc^ 
^iZlt. ^^±mf)^fiS.iLLfzt^UL . il^iiS^L (D, i. W0 4) 
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x-^X'JT (D. i, W04) iZy'-iS^^^UKX (Di^^\Z\t. 
D, i, WO 4<Dn^m:id^>^\Z" 1" ^SD^T-S Ux'y y 7 0 4). 

ni^m'^mu^'^izit. n^&myy^ (d» i. wo 4) ^-feyh-r 

-5 (Ts'ryZf 7 0 6 ) , 
0 7), 

•/7 0 1 {I4dI^T. t^-^X'J7 (D. i. W0 4) {d 
^7 0 8 ) , 

x-i5'x>j 7 1 0 0 1 \zw.'Drc^m)^xfj^ntzt^\z ^ 

(Df^--^ JL^J 7{Z^(D^^^7i^t^<DrzlsbiZmt>n^o ^ff^USr^i 0 

zjf^mmmm\zm^-:fnc^yAt:^mmiz±f^ic.r^h(DT$>^. nuy h 

jIII M lUl^t (I |nj - •/ □ i7' ^ A T ^ -5 (7) T\ /il^y hM^, 15 

^^mRUt^mwMiz^.^7n^y A^^m&oiz^^r^^ti^^ z. t 
It. ^i^t-r^'jyhOxT^j^mii^iz^f^-r^zt^Mm-t^o 
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T. ni^-yhr^^. iiffig^SLDCiSiliS^CDliCfnfex-iJ^X'J 7(7)7 

III 8 «2^^B^fC'0^^ V 7 h'^x7<DgK^^ggO;|^fi!c2:^-ryp 
i^/EIT*^. -Oy 7 h'^x7(0gKi^fij6^tg«. II>fc:a.-:S'±TV 
7 h'i7x7(C«t 0^ilT§C<i:A^T^-5« 

laslw^fel^T, 8 0 1 «ia4 -0 7 ^SS^i&C;^ 

m 1 <7)iBMgi5. 8 0 2 hmmmmz^^-fu^^A^^tbBm. 
hm^iz^^zfnifyj^^/ii^y hmmm^izm^'^tsmih^, 8 o e 

«yo ^'^ A(^ffi^?^iiSti/cy 7h'j7.x7^£tJ;^T-&ttl;'jg|5T^-&. 

SWch-r-Sy 7 h>!7x7Ti£ffl-r^jl®^i|®^$i|#^L C^x 
(Xx-y7°9 0 2) c llllO(Jr^^$n/iliia(7)-{?^JTa&-2)o 1110(7) 

mm iz'y 7. 5" A n.--i7fj.iiM(D-m\i'. m^ir' gsoi os" 
'^fzt.mwmmj-^m^-t^o ^tz. mi oiz^i^x:^m<D'^m\ty'- 
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^7 K^^LTl^-i), 

MENUJ ) ^^^^^ t^(Dmm'C(Dmm[H^ ( r^-j.-NO=n + 

ENTERj . (Dmm±(Dmmm$^) ^^^b-AizsmuuBt^ im 

^It Tp^ -i-jaiiGSMENUj t^ibit ^^^m^mwGso I 0 8J 
o^,T^^ r^xxAISMj , r?^^aa#g®G S O I 0 8j ^^^blt 
ffJ OM»^lglc:J;-3T7 7-r;PF SH I NF I L;5^f)(7)x-i5' (JiiS 

rilTj (Z)$iJ1S?m§g{C=fcoT^-i-iii®GSMENUj ^(Dm^o ) 

Ell IJC^dUT, roSMENUj 0T<7) rwo4j itmfSMMf-G 
S M E N U /}^H $nAcW04/1U«yHT^0, Z (DW 0 4 /-^ U y h iZ J: 
oT/:ii-iiiffiG S ME NUTi^J^fig^n-So 

TGSMENUJ (7)T(7) TWO 2 J fJlirHj gfllSiJ^ G S M E N U ^ 
ntzWO 2)\Vv hT^D, 3<DW0 2 /t U «y h (C cfc o Ti!aiiM8§;^>^^?i 

rc S O I 0 8 J (DTO) rwo 4 J ISliilniSISiJ^ G S O I O 8 
n/iWO 4/1U-y hT*0> C(DWO 4/^?!^ 7 o T J^^iffi BS^jl® 
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GSOI 08(Z)x-iS'7-<-;i/ K{ca^-r-5x-:S';&«J^fi£$n-5. 

rcSO I 0 8J <DT(D rwo 2j (i@jffilS^SiJ^G S O I 0 
ntz\NQ hT^O. :i0WO 2AU<y h (3 J: o T^!iaigifS7&«^ 

rW0 3j tt'>XxA{C-ii©WO 3/1U«y hT^O, ;i©W0 3/t 
U^y h©{4ffiMm. ^Sgm<7)||ff ^MTJ-^iiSBa^iiSG S O I 0 8 

rPSHINFILj rpMOTOFILjo TFSHINFILjtt, 

fs.^, r I o-wo 4 -RK 1 -s Ecj its. m^-^My 7 
r I 0-wo 4 -RD 1 - s Ecj tit, ^m^Ttmy 7^ )ii 

-^^'J-Ht-'5W0 4/tl/«:/ h±(D1j-y;U-^>ig^SiJ^T^-5c r i 
O-W02-RK1-SECJ its. m^-^my 7^ )V\ ii^^^-^ 

2:'J- K-r-SWO 2/tl/.;; H±®-9-:/;u-^>l§S!5iji^T3b.5o r i o- 
W03-RK1-SECJ m^-^^y 7 <)V \ ;5^e>x-^^U 

- K-T'Swo 3/iu«y K±<^-y--/;i.-5^>igjgij^-e*-5. r i o-wo 

3 RDl-SECji:«, rfi^TcifS^ 7< ^PJ ^ U - K 

!f#^$n/iiiiiff. Item, y 7 -i )V-h'^ibm^^^%\^ (Xx-^t^ 
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9 0 4) , "tn^nommizmi^^Wi^t^ (xx^yoos) , m 

r*l7j tC^^LTmig^giJ^chLT'PASSNOr. "CLNAME'. 'YOKNZAN". 
• MSSGCDl" . • PF25KEY" . " PF3KEY" ^m^T^o 

m 1 2 itAiims 0 3 ^0 Aij-^n^^m^(D-M^^-rmT$>^o 

^mm-cit. mmmm^ (id) (DA;t;tfi, iii®^*5;oA;^7<i. 
y'-'^^^xtimm}^tiit)mi^i)^ (I/O) , x-^'^fij^, x-^nni 

;i/^^«LTii^. ) , MSMss (R-NO) , ^mm^^^mmizM 
!t^Lrzmm^-^^ (f-key) , ^xmrnmrni". mm^m ^^-^ 

«eiCH> T'-:S'7&^'A;'jmtt0^^{CliL YE EOlgailCcfc 0 gKjfi^lH 

^■h^'(^o^t\z\xmx\tM^%%(D'T- t-^h ?t#T X - ^ ^ e E ^ 
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mmm^(DxtimB\z{t. ±mbrzmmi^^ (r=i~5) ^m^r 

^tz. *^B^Tii-5 r^jajiMS&j {3:, ±ia©^aMg§ (R-NO) , 

mm^-m^ (F.-KEY) RU:kmmmm^\zmmr^o 

^LT. ffliigPS 0 4&DCMiig|5 8 0 5 lCctoTV7 h-^x7(Dgi!j 

n (X7-y':f 1 3 0 1) . J^m^^omn^^tJi^n^t (T.y'yZfl 3 
0 2), HilA^S 0 4^'mi0feiggB8 0 1^6" x-iJ^Wie^fig" 

-e'tlli«6jiSn'5 (Xx^y^l 3 0 4). 

I 

* @%8@ 

* 

L-W03-©!i;i6e-@X198-SEC SECTION. 
L-W03-@!i;i6e-§S;i9@-START. 
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*--< ^Mm^ >-- 

IF n\&%-%%m OF W03 NOT = mo§ 

GO TO L-W03-@!lil6@-e!i;i9§-EXIT 
END-IF. 
--< iE^fiic >-- 

— < Xljm^CDt^ W0 2^-\iyh >-- 

MOVE mG§-%%m OF W02 

TO mm-^%m of wo3. 

B^5)c >-- 

MOVE G#####-***** OF W03 

TO F#####-***** OF F#####-REC. 
PERFORM I0-W03-RD*-SEC. 
IF RD*-INVS = • IV" 

MOVE %%2Q% TO mm-nm of wo3 

ELSE 

MOVE F#####-e!»;i9@ OF F#####-REC 

TO @%l6@-®%m OF W03 

END-IF. 

--< mtm^cDt^ mommtomwr^E^m >-- 

COMPUTE §3;i6i-@S;i9@ OF W03 
= ###-### OF \V03 
+ ***-*** OF W03. 

--< B£u-t=iJ^ >- 

IF @!«16§-@X19@ OF W03 = Wm 
* OR %%im-<s%lM OF W03 > 0 
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ADD 1 TO §X16@-@5i;i98-CNT 

IF @%m-nm-m < recall-max 

MOVE T TO RECALL-FLG 

ELSE 

MOVE "1" TO @!I;16@-@!»;I9@-N0N 
END-IF 
END-IF. 

L-wo3-ea;i6e-@!i;i9@-EXiT. 

EXIT. J 

@% 8 @\tmm^m. 

@% 1 9 @\t^mm?A^. 
@%2 0 @\tmmzni^>.Lrz r^j 

m^^V'i^<Dmii^@% 8 @ 
mmn\=f'<Dmffi@ i e @ 

¥ S"J ^ ti*! t!?^' @ % 1 9 @ 
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mit<r>mffi@% 20® 

^--< Se^fiK >- 

MOVE %%im-%%m OF W02 
TO §X16e-§X19@ OF W03. 

>— 

MOVE G#####-***** OF W03 

TO F#####-***** OF F#####-REC. 
PERFORM I0-W03-RD*-SEC. 
IF RD*-INVS = • IV" 

MOVE @a;20@ TO @s;i6@-@!i;i9@ of wos 

ELSE 

MOVE F#####-e!i;i98 OF F#####-REC 

TO OF WOS 

END-IF. 

COMPUTE @!i;i6@-@a;i9® OF wos 

= ###-### OF WOS 
+ ***-*** OF ff03. 



*--< ?^t]mi^(Dtt W 0 2 7 h >-- 

* MOVE mm-nm of wo 2 
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* TO %%m-%%m OF W03. 

;5^*x-^xU7 (D. U Wn) - 1 ©x'-iJ' ^x-:57x 'J 7 (D, i, 
Wn) IZ^rzfn^yA^j^, 

S^fiJc >— 

* MOVE G#####-**»** OF W03 

* TO F#####-***** OF F#####-REC. 

* PERFORM I0-W03-RD»-SEC. 

* IF RD*-1NVS = 'ir 

* MOVE e!i;20@ TO @%16e-@!lil9@ OF W03 

* ELSE 

* MOVE F#####-©»;19§ OF F#####-REC 

* TO S!i;i6@-§!»;19§ OF W03 

* END- IF. 

7 7 n -¥i§ (7) X - ^ f, X- ^ ^ s e ^^e-r s □ ^ A SB 



* COMPUTE g!i;i6@-@!i;i9@ OF W03 

* = ###-### OF W03 

* + OF W03. 
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mm^^(D^m. @%8@. @%16@, @%19@. @%20@, # 
####. #####, *. ###-###, 

* 

t 

L-W03-GSOI08-PASSN01-SEC SECTION. 
L-W03-GS0I 08-PASSNO 1 -START. 

*--< mmm^ >- 

IF GSOI08-PASSNO1 OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-PASSN01-EXIT 
END-IF. 
*--< SB^filt >~ 

♦~< Atim^Ot"^ W02$--fe'vN>~ 

MOVE GS0I08-PASSN01 OF W02 

TO GSOI08-PASSN01 OF W03 
♦~< ^iim^ >~ 

IF GSOI08-PASSNO1 OF W03 = LOW-VALUE 
OR GSOI08-PASSN01 OF W03 > 0 

ADD 1 TO GSOI08-PASSN01-CNT 
IF GS0I08-PASSN01-C.NT < RECALL-MA.X 
MOVE -J- TO RECALL-FLG 

ELSE 
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MOVE "1" TO GS0I08-PASSN01-N0N 
END-IF 
END-IF. 

L-W03-GSOI08-PASSN01-EXIT. 
EXIT. 

* 

* 



L-W03-GS0I08-CLNAME-SEC SECTION. 
L-W03-GSOI08-CLNAME-START. 

*--< ^mmm >- 

IF GS0I08-CLNAME-XX OF W03 NOT = ALL ' 9" 

GO TO L-W03-GSOI08-CLNAME-EXIT 
END-IF. 

*-< Se^fi5c >— 

E^bK >- 

MOVE G SO 1 08- PASSNOl OF W03 
TO FMOTOFIL- PASSNOl OF FMOTOFIL-REC. 
PERFORM I0-W03-RD1-SEC. 
IF RDl-INVS = 'IV" 

MOVE ALL '9" TO GS0I08-CLNAME-XX OF W03 

ELSE 

MOVE FMOTOFIL-CLNAME OF FMOTOFIL-REC 

TO GSOI08-CLNAME OF W03 
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END-IF. 

♦--< ^if-iJS >-- 

IF GSOI08-CLNAME-XX OF WO 3 = ALL ' 9" 
OR GSOI08-CLNAME-XX OF W03 > 0 
ADD 1 TO GSOI08-CLNAME-CNT 
IF GS0I08-CLNAME-CNT < RECALL-MAX 
MOVE "1" TO RECALL-FLG 

ELSE 

MOVE T TO GS0I08-CLNAME-N0N 
END-IF 
END-IF. 
L-W03-GS0I08-CLNAME-EXIT. 
EXIT. 

* 

* 

* 

L-W03-GSOI08-YOKNZAN-SEC SECTION. 
L-W03-GSOI08-YOKNZAN-START. 
*--< *ic*iJ^ >~ 

IF GSOI08-YOKNZAN OF W03 NOT = LOW-VALUE 

GO TO L-W03-GS0I08-YOKNZAN-EXIT 
END-IF. 
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MOVE G SOI 08- PASSNOi OF WO 3 

TO FMOTOF I L- PASSNOI OF FMOTOFIL-REC. 
PERFORM IO-W03-RD1-SEC. 
IF RDl-INVS - 'IV 

MOVE ALL '9'- TO GSOI08-CLNAME-XX OF W03 

ELSE 

MOVE FMOTOFIL-YOKNZAN OF FMOTOFIL-REC 

TO GSOI08-Y0KNZAN OF W03 

END-IF. 

*--< f^iin^ >— 

IF GSOI08-YOKNZAN OF W03 = LOW-VALUE 
OR GS0I08-Y0KNZAN OF W03 > 0 

ADD 1 TO GS0I08-Y0KNZAN-CNT 
IF GS0I08-YOKNZAN-CNT < RECALL-MAX 
MOVE T TO RECALL-FLG 

ELSE 

MOVE T TO GS0I08-Y0KNZAN-N0N 
END-IF 
END-IF. 

L-W03-GSOI08-YOKNZAN-EXIT. 
EXIT. 

* 

* 



L-W03-GSOI08-MSSGCD1-SEC SECTION. 
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L-W03-GS0I08-MSSGCD1-START. 

*--< ^Mm^ >- 

IF CSOI08-MSSGCD1 OF W03 NOT = LOW-VALUE 

GO TO L-ff03-GSOI08-MSSGCDl-EXIT 

END-IF. 

*--< ge^fiK >-- 
*-< 0s.tLm^ >-- 

IF GSOI08-MSSGCD1 OF W03 = LOW-VALUE 
OR GSOI08-MSSGCD1 OF W03 > 0 

ADD 1 TO GSOI08-MSSGCD1-CNT 
IF GSOI08-MSSGCD1-CNT < RECALL-MAX 
MOVE T TO RECALL-FLG 

ELSE 

MOVE "1" TO GS0I08-MSSGCD1-N0N 
END-IF 
END-IF. 

L-W03-GSOI08-MSSGCD1-EXIT. 
EXIT. 

* 

* 

* 

L-W03-GSO108-PF3KEY-SEC SECTION. 
L-W03-GS0I08-PF3KEY-START. 
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IF GS0I08-PF3KEY OF W03 NOT = LOW-VALUE 

GO TO L-ff03-GSOI08-PF3KEY-EXIT 
END-IF. 
*--< eS^fig >- 

*--< 0.iLm^ >-- 

IF GS0I08-PF3KEY OF W03 = LOW-VALUE 
OR GSOI08-PF3KEY OF W03 > 0 

ADD 1 TO GS0I08-PF3KEY-CNT 
IF GSOI08-PF3KEY-CNT < RECALL-MAX 
MOVE 'r TO RECALL-FLG 

ELSE 

MOVE T TO GSOI08-PF3KEY-NON 
END-IF 
END-IF. 
L-W03-GSOI08-PF3KEY-EXIT. 
EXIT. 

t 



L-W03-GSOI08-PF25KEY-SEC SECTION. 
L-W03-GSOI08-PF25KEY-START. 

*-< ^Mn^ >- 

IF GSOI08-PF25KEY OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOIO8-Pf25KEY-EXIT 
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END-IF. 
*--< gB^fiK >-- 
*-< gE^figTiU 
*-< fiJci^J^ >-- 

IF GSOI08-PF25KEY OF W03 = LOW-VALUE 
OR GSOI08-PF25KEY OF W03 > 0 

ADD 1 TO GSOI08-PF25KEY-CNT 
IF GS0I08-PF25KEY-CNT < RECALL-MAX 
MOVE '1' TO RECALL-FLG 

ELSE 

MOVE " r TO GSOI08-PF25KEY-NON 
END-IF 
END-IF. 

L-W03-GSO108-PF25KEY-EXIT. 
EXIT. 



* 

* 

* 6%8@ 

* 

Y-wo3-@a;i6@-@s;i9@-SEC section. 

Y-W03-e!i;i6@-e!i;i9§-START. 

IF OF wo 2 NOT = Wm 

MOVE 166-6X196 OF W02 

TO OF W03 
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END-IF. 
Y-W03-e!i;i6@-@X19@-EXIT. 
EXIT. 

* . 

* 

Y-W03-GSOI08-PASSN01-SEC SECTION. 
Y-W03-GSOI08-PASSN01-START. 

IF GSOI08-PASSN01 OF W02 NOT = LOW-VALUE 
MOVE GSOI08-PASSN01 OF W02 
TO GSOI08-PASSN01 OF WQ3 

END-IF. 

Y-W03-GS01 08-PASSNO 1 -EX I T. 
EXIT. 

* 

* 

* 

Y-W03-GSOI08-CLNAME-SEC SECTION. 
Y-W03-GSOI08-CLNAME-START. 

IF GSOI08-CLNAME-XX OF W02 NOT = ALL " 9" 
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MOVE GS0I08-CLNAME OF W02 
TO GS0I08-CLNAME OF W03 

END-IF. 

Y-W03-GS0I08-CLNAME-EXIT. 
EXIT. 

* 

* 

Y-W03-GS01 08-YOKNZAN-SEC SECTION. 
Y-W03-GSOI08-YOKNZAN-START. 

IF GSOI08-YOKNZAN OF W02 NOT = LOW-VALUE 
MOVE GS0I08-Y0KNZAN OF W02 
TO GSOI08-YOKNZAN OF W03 

END-IF. 

Y-W03-GSOI08-YOKNZAN-EXIT. 
EXIT. 

* 

* 



Y-W03-GSOI08-MSSGCDI-SEC SECTION. 
Y-W03-GSOI08-MSSGCD1-START. 

IF GSOIOS-MSSGCDi OF W02 NOT = LOW-VALUE 
MOVE GSOIOS-MSSGCDf OF W02 
TO GSOIOS-MSSGCDI OF W03 
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END- IF. 
Y-W03-GSOI08-MSSGCD1-EXIT. 
EXIT. 

* 

* 

* mj 

* 

Y-W03-GS0I08-PF3KEY-SEC SECTION. 
Y-W03-GS0 1 0 8-PF3KEY-START. 

IF GSOI08-PF3KEY OF W02 NOT = LOW-VALUE 
MOVE GSOI08-PF3KEY OF W02 
TO GS0I08-PF3KEY OF W03 

END-IF. 

Y-W03-GSOI08-PF3KEY-EXIT. 
EXIT. 

* 

* 

* 



Y-W03-GSOI08-PF25KEY-SEC SECTION. 
y-W03-GSOI08-PF25KEY-START. 

IF GSOI08-PF25KEY OF W02 NOT = LOW- VALUE 
MOVE GSOI08-PF25KEY OF W02 
TO GS0I08-PF25KEY OF W03 

END-IF. 
Y-W03-GSOI 08-PF25KEY-EX1 T. 

3 6 



wo 99/49387 



PCT/JP99/01394 



EXIT. 

*--< m@ 

PERFORM L-W03-®!K16e-@ii;i9©-SEC. 

* 

*--< 

PERFORM Y-W03-e!i;i6§-§X19e-SEC. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 

SOURCE-COMPUTER. AS400. 

OBJECT-COMPUTER. AS400. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

* 

*— KEY^O— * 

SELECT eiKieg ASSIGN TO D.ATABASE-§!i;i6@ 

ORGA.NIZATION IS INDEXED 
ACCESS MODE IS DYNAMIC 
RECORD KEY IS EXTERNALLY-DESCRIBED-KEY 
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* WITH DUPLICATES 
FILE STATUS IS mU. 

*-- KEY*£U-* 

* SELECT 8X166 ASSIGN TO DATABASE-9«16§ 

* ORGANIZATION IS SEQUENTIAL 

* ACCESS MODE IS SEQUENTIAL 

* FILE STATUS IS m4@. 
DATA DIVISION. 

FILE SECTION. 

FD Miee 

LABEL RECORD IS STANDARD. 
01 @!i;i6@-R. 

COPY DDS-ALL-FORMATS OF Q%m. 

01 exiee-REC. 

COPY m@. 

WORKING-STORAGE SECTION. 

01 PALETTE-WORK. 

03 PS PIC S9(03) COMP. 
01 WK-FILE-STATUS. 

03 6X24® PIC X(02). 
01 FILE-STATUS. 

03 i!87@-OPNS PIC X(01). 

03 e!li7§-REDS PIC X(0l). 

03 iS;7@-INVS PIC X(02). 
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*— <wo3 mm^ ^)7{z^mr^o 

01 n-nm. 

COPY ex 166. 
LINKAGE SECTION. 

*— < CTRL >-* 

01 CTRL-AREA. 
COPY CTRLAREA. 
♦--< W02 >— * 

01 W02-AREA. 

02 W02 OCCURS 5. 
COPY W0204. 

» -< H® >— 

03 W02-@!i;i6@ REDEFINES INFO. 

COPY 6X1 6@. 
03 §!K16@-N0N REDEFINES NON-FLG. 
COPY @ii;i6@N. 
*--< W03 >— * 
01 W03-AREA. 
02 W03. 

* —< I / Fmm >-- 

03 W03-CNTRL. 

05 RECALL-FLG PIC .X(l). 
05 RECALL-MAX PIC 9(2). 

* ~< mm >— 
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03 W03-ITEMS. 
04 W03-i3;i6@. 

COPY nm. 

04 W03-FILE. 

COPY @3;i6@. 
04 W03-LIST. 

COPY nm. 

♦ --< ^^iLyy^ >— 
03 W03-NON. 

COPY @^16@N. 

COPY mm. 
COPY mm. 

03 W03-CNT. 
COPY 
COPY 
COPY 
♦--< W04 >--* 
01 W04-AREA. 

02 W04 OCCURS 5. 
COPY W0204. 

* — < is® >-- 

03 lV04-@!»;i6i REDEFINES INFO. 
COPY 

03 OPTION-IDX-DEF REDEFINES OPTION-IDX. 
COPY 
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§X16@Z. 
@%16@Z. 
@!lil6§Z. 



wo 99/49387 



PCT/JP99/01394 



*— < WFL >— 

01 WFL-AREA. 

03 FILLER PIC XIOl). 

PROCEDURE DIVISION USING CTRL-AREA 

W02-AREA 
W03-AREA 
W04-AREA 
WFL-AREA. 

* * MA I N * 

MAIN-SEC SECTION. 
MAIN-START. 

»--< mmm >~ 

PERFORM INIT-PROC. 

*--< itmmm >— 

PERFORM Y-PROC. 

*--< mm^m >~ 

PERFORM UNTIL RECALL-FLG = SPACE 

MOVE SPACE TO RECALL-FLG 
PERFORM L-PROC 
END-PERFORM. 
♦~< P write 

PERFORM I0-W03-WT*-SEC. 
PERFORM I0-W03-UP*-SEC. 
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*--< ^mm >— 

PERFORM FIN-PROC. 
MAIN-END. 

EXIT PROGRAM. 

» * tumm * 

INIT-PROC SECTION. 
I NIT-START. 

*--< wmm >~ 

INITIALIZE 



INITIALIZE 
INITIALIZE 
MOVE SPACE 
MOVE 05 



PALETTE-WORK. 
WK-FILE-STATUS. 
FILE-STATUS. 

TO FLAME-FLG OF CTRL-AREA. 
TO RECALL-MAX. 



MOVE HIGH-VALUE TO RECALL-FLG. 



MOVE STAGE-NO OF CTRL-AREA TO PS. 
IF (PS < 1) OR (PS > 5) 

MOVE "STAGEERR" TO MSG-NO 
END-IF. 

*--< mmmB " ^" (D^m >— (LOW-VALUE / ALL' 9' ) 
MOVE LOW-VALUE TO WK-eXlg. 

*--< WO 3 " (Dm^ >— (LOW-VALUE / ALL' 9" ) 
MOVE LOW- VALUE TO WK- ITEMS. 

MOVE WK-@a;i§ TO W03-@*l@. 
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*--< wmit >-- 

INITIALIZE W03-N0N. 
INITIALIZE W03-CNT. 
I NIT-EX IT. 
EXIT. 

Y-PROC SECTION. 
Y-START. 

*— < exi® 
COPY exie. 

Y-EXIT. 
EXIT. 

* * i^m^m * 

* ******************** 

L-PROC SECTION. 
L-START. 
*— < 851; li 

COPY exie. 

L-EXIT. 
EXIT. 

* **************miii^ 
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FIN-PROC SECTION. 
FIN-START. 

*--< 77<;i^ CLOSE) 
FIN-EXIT. 
EXIT. 

* * it^MM - s e c t i o n » 

»--< 

COPY exie. 

•= * ^aS^ - s e c t i ong^ * 

^ ************************************** 

COPY fXl®. 

' * F I L E I /O * 

~< V — ^r>->.^;i, READ ? 8X81 >— 

io-wo3-ea;7e-SEC section. 

I0-W03-M7@-SIART. 

IF ^XTt-OPEN NOT = ' f 
OPEN INPUT @%m 
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MOVE ' r TO exTe-oPNS 

END-IF. 

READ @%m AT END 

MOVE "E' TO F-END 

GO TO I0-W03-@!i;7@-EXIT 

END-READ. 
I0-W03-@H;78-EXIT. 
EXIT. 

*— < KEY READ ? nm— 
I0-W03-@!i;78-SEC SECTION. 
IO-W03-@3;7e-START. 

IF i!i57@-OPNS NOT = ' 1' 
OPEN INPUT @s;i6@ 
MOVE "1" TO @!i;7e-0PNS 

END-IF. 

IF ««7@-REDS NOT = " 1" 
READ 9%m INVALID 

MOVE 'IV TO @a;7@-INVS 
GO TO I0-W03-@X7@-EXIT 

END-READ 

MOVE "1" TO @S;7@-REDS 

I0-W03-@X7@-EXIT. 
EXIT. 
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*--< %%u >-- 

I0-W03-@X7@-SEC SECTION. 
10-W03-@!i;7@-START. 

IF exre-oPNS not = • r 

OPEN OUTPUT %%m 
MOVE "1" TO eXTe-OPNS 

END- IF. 

WRITE e«16@-REC INVALID 

MOVE 'IV TO @!i;7@-INVS 

GO TO I0-W03-@j;7@-EXIT 
END-WRITE. 
IO-W03-§j;7e-EXIT. 
EXIT. 

I0-W03-i!i;7@-SEC SECTION. 
I0-W03-e!i;7e-START. 
*— < KEY READ ? @!*;8@ >~ 

IF §X7e-0PNS NOT = " 1" 
OPEN i-o mm 
MOVE '1" TO e!IS7e-0PNS 

END-IF. 
* ~< k e y 

MOVE WFL-RD?-KEY-#I TOkey^^x;;? 

READ exiee invalid 

4 6 



wo 99/49387 



PCT/JP99/01394 



MOVE 'IV TO @!«7@-INVS 
GO TO IO-W03-@3;7@-EXIT 

END-READ. 
*--< UPDATE ? m§ >— 

IF @S;7@-INVS NOT = "IV" 

REWRITE §!i;i6@-REC INVALID 

MOVE "IV" TO @a;7@-INVS 
GO TO I0-W03-e!»;7e-EXIT 

END-REWRITE 
END-IF. 
I0-W03-@!i;7@-EXIT. 
EXIT. 

% 2 4it %16 + STS. 
% 1 tiW 0 n 

SAc, W0 2|g}Ilg^, WO 2 /tU NMi^. W0 4iSiIl^g^. WO 
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